﻿Public Class form_log
    Private Sub form_log_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'меняем размеры и позицию на треть экрана справа
        Left = Screen.PrimaryScreen.WorkingArea.Width * 2 / 3
        Top = 0
        Width = Screen.PrimaryScreen.WorkingArea.Width / 3 'х.з. почему (возможно учитываются бордюры, но для полного заполнения трети добавляем 8 пикселей
        Height = Screen.PrimaryScreen.WorkingArea.Height
    End Sub
    Private Sub form_log_Close(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        'Скрываем, а не закрываем форму
        Me.Hide()
        e.Cancel = True
    End Sub
End Class